home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Function / clone.al < prev    next >
Encoding:
Text File  |  2008-11-04  |  996 b   |  36 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Function.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Function;
  5.  
  6. #line 237 "blib/lib/RPC/XML/Function.pm (autosplit into blib/lib/auto/RPC/XML/Function/clone.al)"
  7. #
  8. # These are the same as RPC::XML::Procedure subs, except that they have no
  9. # references to signatures.
  10. #
  11. ###############################################################################
  12. #
  13. #   Sub Name:       clone
  14. #
  15. #   Description:    Create a copy of the invoking object.
  16. #
  17. #   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
  18. #                   $self     in      ref       Object of this class
  19. #
  20. #   Returns:        Success:    $new_self
  21. #                   Failure:    error message
  22. #
  23. ###############################################################################
  24. sub clone
  25. {
  26.     my $self = shift;
  27.  
  28.     my $new_self = {};
  29.     %$new_self = %$self;
  30.  
  31.     bless $new_self, ref($self);
  32. }
  33.  
  34. # end of RPC::XML::Function::clone
  35. 1;
  36.